home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01504_ÉnÉìÉhÉâäeîN02.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  1.3 KB  |  43 lines
  1. global popmsw01, syearstr, nminipage, npopon, lmaxpagelist, presp
  2.  
  3. on mcapsset sono
  4.   if the type of sprite sono = 0 then
  5.     set the type of sprite 23 to 0
  6.     set the type of sprite 24 to 0
  7.   else
  8.     if (the type of sprite 23 = 0) or (the locH of sprite 23 <> 431) then
  9.       mspriteset(23, 1, 1, 0, the number of cast "CP-BOARD", 430, 250)
  10.     end if
  11.     mspriteset(24, 1, 7, 36, the castNum of sprite sono + 50, 330, 240)
  12.   end if
  13. end
  14.  
  15. on mmonthlabelchk
  16.   if (the frameLabel = "FEB") or (the frameLabel = "MAR") or (the frameLabel = "APR") or (the frameLabel = "MAY") or (the frameLabel = "JUN") or (the frameLabel = "JUL") or (the frameLabel = "AUG") or (the frameLabel = "SEP") or (the frameLabel = "OCT") or (the frameLabel = "NOV") or (the frameLabel = "DEC") then
  17.     return "JAN"
  18.   else
  19.     if the frameLabel = "JAN" then
  20.       return "DEC"
  21.     else
  22.       return "IN"
  23.     end if
  24.   end if
  25. end
  26.  
  27. on mminiptbaseset
  28.   puppetTransition(23)
  29.   if nminipage = 1 then
  30.     set the type of sprite 10 to 0
  31.   else
  32.     mspriteset(10, 1, 1, 0, the number of cast (chars(syearstr, 1, 6) & "P" & nminipage), 320, 359)
  33.   end if
  34. end
  35.  
  36. on matjantodec
  37.   if (chars(syearstr, 6, 8) = "_YN") or ((6 <= the frame) and (the frame <= 17)) then
  38.     mvisiblechk(17, 18, 0)
  39.     mvisiblechk(20, 21, 0)
  40.   else
  41.   end if
  42. end
  43.